oo::class create PaneContainer {
    variable Container Widgets
    
    constructor {path} {
        set Container [ttk::panedwindow $path -orient horizontal]
    }
    
    method append {w {weight 1}} {
        $Container insert end $w -weight $weight
        lappend Widgets [list $w $weight]
    }
}